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MODULE crf_cref ( ! Cross reference facility 


LAME. BLISS 


Hite 
ITLE ‘Cross reference facility’; 


ISTE IT IIIT ITT TTT TTT Tri rir citric iii iti titi tit iiiiiiiiiiitiiiiiiiy 
ie 


® 
ie COPYRIGHT («) 1978 1980, 1982, 1984 BY * 
ie DIGITAL | Qui PRE T CORPORATION, MAYNARD, MASSACHUSETTS. « 
is ALL RIGH SU RESERVED. * 

® 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOF TUAR E OR ANY OTHER * 
ie COPIES THEREOF may hot BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS WHEREBY * 
is TRANSFERRED. * 
& e 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
ie SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ie CORPORATION. ’ 
' te 
ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
is SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 

® 
ie « 


i eeeeeerererertereerereeeeneeeeeeerererererteneereeeeneeeeeeeeeereneeeeeneeee 
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FACILITY: 
i ABSTRACT: 


Cross reference 


The cross reference facility is a set of routines to input the cross 
reference data and output the cross reference on demand. 


ENVIRONMENT: 
VAX native, user mode. 


AUTHOR: Benn Schreiber, 3-Dec-1979 
MODIFIED BY: 


v03-002 


CREATION DATE: 


BLS0124 Benn Schreiber 1-Jan-1982 
Ensure that refindent and refsperline are initialized before 
being used. Better checking of output Line too long. 


v03-001 - BLS0059 Benn Schreiber -Jul-1981 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
1 

: just printing keys and values, go through delete logic. 


$-32 
TER: 


v4.0- iy 
CCRF ..SRCICREF .832;1 


vou=000. “se nseeemacg 1Eseoctoge T3ii2:83 — DESdunshastenscenéesacicner.o3z;1 "9 «3 
; «58 
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CRF _CREF Cross reference facilit 15 -$ Sep- 4 VAX-11 Bliss-32 V4.0-7% P 
vo0=000 Declarations . 14-Sep- 198¢ #3: if: 3% DLSKSVMSMASTERLCRE SRCICREF .832;1 ne 23 
5 ZSBTTL ‘Declarations’; | 
LIBRARY | 
"SYSSLIBRARY : STARLET.L32'; | 


REQUIRE 
*CREMDL'; 'Cross reference definitions 
REQUIRE 


*CRFERRMSG'; 'Cross reference messages 


' | 
Define VMS block structures | 
STRUCTURE 

BBLOCK C ‘ P, S, E; NJ = 
(BBLOCK + 0) <P, S, E>; | 
Macro to execute a given sequence of commands and return if any error 


SSLESRENS 


a a a ek ed tk od ts od 2 = = = = 2 3 8 = 


cA. } = CALL (STANDARD, STANDARD) : GLOBAL (controlre 


} 
10 MACRO | 
mM 021 perform (command) = 
i] \¢ BEGIN 
m 021 LOCAL 
Mm 0214 status; 
Mm 0215 status = oomnents 
i. 1g IF NOT .status ! If error detected, | 
4 ; ee RETURN. creferror (.status); ! then return with error (after calling user routine if there is on} 
i : | 
$9 LINKAGE 
1 JSB_0 = JSB : GLOBAL hoopereteca © ° 
§ JSB-1 = JSB (REGISTER = 0) : AL latest = 11) 
PRESERVE (2, 3, mY NOTUSED (5, 6, 7, if 9, 10), 
i JSB_2 = JSB (REGISTER = 0, REGISTER = 15 : GLOBAL (congrofreg, = "1 | 
2 PRESER  . ) NOTUSED (5, 6, 7, 8. 9, 10), 
| 
i 
| 


KAR WWHAOSS LT AR MV SOP LRAL A OOS NEAR SOROS RUN ODS UO RU 


| 

0 

0 

0 

8 

03 

03 7 ALL=3 = CALL (STANDARD STANDARD. STANDARD) : GLOBAL Teontrolreg = 

0228 CALL_4 = CALL (STANDA MPAs. . a og STANDARD) GLOBAL sarukten 11), 

9 $6 CALL7SYS = CALL : PRESERVE (2, 3. 4, 5, 6, ? 8, 9, 10, 11); 

! 1 EXTERNAL ROUTINE 

3 sort hash table, 'Sort hash table into Linked List 
1 2 get_mem : JSB ‘Allocate virtual peel 
1 getcznen ~zmem : JSB_2, ‘Allocate zeroed virtual memory 
1 5 JS8 ! and deallocate it 
} SYSSFAQ': * ADDRESSING MODE (GENERAL) CALL SYS; Decesened ascii output 
1 : GLOBAL LITERAL 
1 crf$c_maxcol = 64, ‘Max cols on cref of symbol /value 
: rt crf$c_maxlinwid = 132; ‘Maximum Line width 
1 v4 | EXTERNAL g 
: vb crf$c_hashsize; 'Size of hash table 
1 45 LITERA 
1 v4] ertsc. Linextra = 10, ‘Extra padding in Line buffer 
1 4 true = (Tr 
: “8 false = 6; ! and false 


vou=605" Sectarstions sO) t't Rages GHHE:SE  yeScdTathlttckz End SheScner e321 °°°° 2} 


} FORWARD ROUTINE 
add_key : CALL 2 'Add/ Lookup key in hash table 
creferror : JS6_1; iCall user routine on error 


Cross reference facility 13-seo-1984 $3: 38:3 A 


32 
add_key -- add key to hash table 14-Sep-1 6 Dd 8 


V4 .0-74 
CORE SRCSCREF .832;1 (3 


; 121 3 1 2SBITL ‘add key -- add key to hash table’; 

A | : 4 1 ROUTINE add_Key (keyadr, entryadr) : CALL_2 = | 
3 : ? 5 BEGIN | 
: 125 $ lee | 
: } $ 38 Lookup/insert a key into the hash table 
; : S ¢ Inputs: | 
; 130 9 6¢ i keyadr Address of ascic key or binary value | 
3 : 1 0 o7 entryadr Address of longword to store entry address | 
; : : 8 o2 Outputs: 
; : 5 8 ef Address of key block is returned in .entryadr | 
: 1 ose) § fo | 
; 139 0271 ROUTINE compute_hash (ascbin, keyadr) : JSB_2 = | 
; 140 0 i; BEGIN 

Wo BRE | 
; 148 0975 Compute the hash value for a key 

a iin 

: 147 0279 3 | ascbin 0 if ascic, 1 if binary keys | 
5 re gse0 keyadr address of ascic string or binary value 
Ps H | 
3 130 0388 Outputs: | 
3 13¢ 0284 ; Routine value is hash value for key 
: 154 0986 ine | 
; 155 0287 

; 156 0288 3 LOCAL | 
; 12 iy hashval; | 
; 159 0291 3 IF NOT .ascbin 
He Be eget | 
i 162 029% 4 keyadr : REF VECTOR C,BYTE); | 
RR E 
; 165 0 7 gi Hash value for ascic keys is the number of letters in the key | 
oe 98 4! plus the sum of all the letters. 
3 18? 99 4! | 
3; 168 00 4 hashval = 0; 
3 See |S ea eh Ea Eg rary 

: ashval = .hashv s yb : 

3 7 0 88 5 RETURN ({-hashval AND ix" 7FFEFFEF’) MOD crf$c_hashsize) 

.) a 4 & END 

; 17 0305 4! 

: He} 03 4 Hash value for binary keys is low 31 bits of value 

: 176 8 3 ELSE RETURN ((..keyadr AND 2X"7FFFFFFF") MOD crf$c_hashsize); 

> Gee 0309 2 END; 


a, a a—aEOEOEOEOEEEEEEEEEEEEEEEEE——EEEEEEeeeeEeEEEE~*~s-_-_----_~—____———EIVa*sHs Lene c nnn aaa. 


Bliss-32 V4 0-74 Pose 6 


6 
CRF _CREF Cross reference facilit 18.s¢ -1984 23:38:55 VA P 
V062000 ad : 1278087138 93:98:32 I MASTER: CCRF .SRCIJCREF .832;1 (3) 


G_key -- add key to hash table 


on 
<=» 


F_CREF Cross reference facilit 
O55 000\ . 


TRN GET MEM, GET ZMEM 

FRE | 
-EXTRN CRFSC_HASHSIZE 
.PSECT SCODES,NOWRT,2 


1€ BB 00000 COMPUTE _HASH: | 

PUSHR PO R4> : 0271) 

1C 50 E8 0000 BLBS  ASCBIN, 3$ ; 0291, 

ps 000 CLRL. ——« HASHVAL + 0300 

52 6 A 00007 MOVZBL (KEYADR), R2 : 0301 | 

0 D4 OOO0A CLRL i 

07 11 0000C¢ RB $ : 

54 8041 9 900 1$ MOVZBL (1)+CKEYADRI, R4 : 0302. 

53 54 CO 0001 ADDL2 4, HASHVAL : | 

52 50 D1 00015 2s: CMPL =I, R2 ; | 

F4 18 00018 BLEQU 1 ; 

50 53 1F 00 EF O001A EXTZV #0, #31, HASHVAL, RO > 0303) 

05 11 OOO1F BRB 4 ; 

50 61 1F 00 cf 00021 3$: EXTZ2V #0, #3°, (KEYADR), RO > 0308 
7E 00 50 01 7A 00026 4$: EMUL #1, RO, #0, - : 

50 50 BE 000000006 8F 78 00028 EDIV  #CRFSC_HASHSIZE, (SP)+, RO, RO : 

1C BA 000 POPR  #*M<R27R3,R4> : 0309) 

05 00036 RSB : | 


; Routine Size: 55 bytes, Routine Base: S$CODES + 0000 


: 178 0310 | 
; 180 $312 Main body of add_k 

3 ' Main body of a e 

181 0313 9 | : aa | 
; 136 0314 | 
; \3? 8 16 keyadr : REF VECTOR C,BYTE]; 
: 185 1 LOCAL | 
; 186 $318 ch_result, 

3: 187 0319 ascbin 

: 188 0§ 0 thisval, | 
3; «64189 1 newbinarykey | 
; 190 @ keystring : REF VECTOR C,B8YTE), | 
; «6191 prevkey : REF BBLOCK, 

5 136 : thiskey : REF BBLOCK; 

> 194 6 2 EXTERNAL REGISTER 

3 132 i controlreg = 11 : REF BBLOCK; 

; 199 9 2 BIND 

; 198 0 hashtable = .controlreg Ccrf$l_hasht] : VECTOR C,LONG]; 


prevkey = hashtable Ccompute_hash (.ascbin, .keyadr)]; 
thiskey = -prevkey [oes next); 

WHILE .this E 
dO eee 


6 
CRF _CREF Cross reference facility 1$-sev-19 4 $3: 38:33 VAX=-11 Bliss-32 ret os 
add_key -- add key to hash table 14-Sep-1984 :14:356 DISKSVMSMASTER: CCRF .SRCICREF .832;1 
199 1 
§ -entryadr = 0; 
1 ascbin = .controlreg Cerf$v_binary]; 
IF .ascbin 
5 THEN newbinarykey = ..keyadr; 
See if we just dealt with this key Last call 
§ if (thiskey = .controlreg Ccrf$l_lastkey]) NEQ 0 
? THEN 
1 tg IF .ascbin 
1 THEN .newbinarykey EQL .thiskey Ckey$l_keyadr] 
1 4 ELSE BEGIN 
1 45 keystring = .thi Ksy fkey8t beyedrd; 
1 $ CHSEQL (.keyadr (0), keyadr (1), 
1 -keystring (0), keystring [1]) 
1 8 END 
1 4 ) 
1 50 THEN BEGIN 
1 51 controlreg Ccerf$l_lastkey] = 0; 'Assume we won't hit it again 
326 -entryadr = .thiskey; 
5 RETURN crf$_keyprventr 
354 END; 
355 
$ 39 5 i 
4 : Look through the bucket for the key 
: i controlreg Cerf$l_lastkey] = 0 'No last key 
3 36 


ey N 


SSSTSES 
PE BBB BB BE EE NNO MNT & & PIPPIN PIPINU WINN BF BEE 


IF .ascbin 

THEN BEGIN 
thisval = .thiskey Ckey$l_keyadr]; 
-newbinarykey EQL .thisval 


E 
ELSE BEGIN 


o 


WO DOONOULSWN Oo 0@n 


7 
3 7 beyesrin = “thiskey CheySt keyade}: 
4 7 (ch_result = CHSCOMPARE (.kéyadr (03, keyadr (1) 
4 7 ekeystring (OJ, keystring (14>) Ea 0 
4 7 END 
& 7 ) 
4 7 
45 THEN BEGIN 
4G 


| Found in the table 


-entryadr = .thiskey; 
= crf$_keyprventr 


CSGOOSOOOOSOOSOSOSOSOSSOSOCOCOOOCOSOOSOSSGSOOCOSCCOOSCOOCOCOCOCOOOCOCOOCOCOOOOOOCOOOooOOo 


AANA AIAAAIAIAIAI III OO 
Goo: co~ 
NOuw 


ELSE BEGIN 
IF ¢ 


po ee ee eee 


O7FC 00000 ADD_KEY:.WORD Save apap een 
5E 0c ce 90002 SUBL2 #12, SP 
54 68 DO 0006 MOVL  (CONTROL&EG), 
08 BC 04 00008 CLRL aEN NTRYA R 
046 AE 08 AB 01 00 EF 00008 EXTZV » B(CONTROLREG) , ASCBIN 
04 04 AE €9 b0012 BLBC AStBI 
6E 04 BC DO 00016 MOVL  a@KEYA tN | Newel! NARYKEY 
08 AE 04 AB o9 00014 1$ MOVL OTE ONTROLREG). THISKEY 
30 13 OOO1F BEQL 4$ 
50 08 AE 00 00021 MOVL  THISKEY, RO 
06 04 AE €9 00025 BLBC  ASCBIN, 2$ 
08 Ao 6 bi 00 9 CPL NEWBINARYKEY, 8(RO) 
09 09 F 2$ MOVL (RO), KEYSTRING 
pb 0 : MOVL KEYA ADR, RO 
A 000 MOVZBL (RO) 
9A 0003A MOVZBL (KEY STRING) 
D abe CMPCS R2, 1(RO), bor ‘an. 1(KEYSTRING) 
2 6 3$: BNEQ 4$ 
4 0004 CLRL 4 (CONTROLREG) 
0 9 4A MOVL §-THISKEY, @ENTRYADR 
1 0004F BRB 9$ 
4 00 31 4$: CLRL 4 (CONTROLREG) 
0 0054 MOVL KEVADR, R7 
0058 MOVL R77, R 


6 
CRF _CREF Cross reference facilit 18-5 Sep-1984 5 VAX-11 Bliss -32 v4. 
9047008 add_key -- add key to hash table 14-Sep 71984 $3:72 3% DISKS$V neha TER: CCR. ocr CREF .632;1 
3 $ H IF .ascbin 
; THEN .newbinar 7 Mw} -thisval 
; } at 2 ELSE (.ch_result LSS 0) 
; 260 3 4 THEN EXITLOOP; 
: $2) 3% Orishey © {thiskey CheySt_next]; 
3 skey = .this ey ey$l_nex 
; es 95 ne END; 
; 265 3 } 
3 08 a8 : Not in the table, so insert it 
; 00 porteve (get_mem (ke $c_length, thiskey)); ‘Allocate it 
3 e8 01 thiskey Ckey$l_refli : sti"= O° J 
3 0 rh thiskey Ckey$w_ Getflg 
: 271 0 thiskey Ckey$l—defn = 0; 
; Le 04 thiskey Ckey$l chext]'= -pr eee Ckey$l_nextd; 
; 2 05 prevkey [key$l-next] = sy skey; 
; 276 8S thiskey Ckey$l-keyadr] = CIF -ascbin 
ov 040 THEN .newbinarykey 
:; ef 0408 ELSE .keyadr); 
:; 27 0409 eentryadr = .thisk 
3; 278 3539 controlreg Certst tastkey] = .thiske ey: 
; 279 411 sontrotre crf$l- gente tes -controlreg Cerf$l_entries] + 1; 
; 280 Reig RETURN crt$_keylstentr 
; 281 041 ND; !0f add_key 


Page 


WNoO £ 


WWAWN 
arce 


oO 
ae 
w © 
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CRF_CREF Cross reference facilit 1S-s¢ 1984 23:38:55 VAX=11 Bliss-32 V4.0-74 
042000 add_key -- add key to hash table 12-808-198e 93:78:33 ST EKSUMGMASTER LORE SRCICREF .032:1 
50 06 =A Q VL ASCBIN, RO 
FFeD 88 ee BSBW COMPUTE HASH 
SA 6440 0 ¢ MOVAL (R4)CROJ, PREVKEY 
08 AE 6A D MOVL (PREVKEYS, THISKEY 
54 08 AF p 6A 5$: MOVL THISKEY, Re 
5 6 BEQL = «13 
9 4 AE €9 000 BLBC ASCBIN, 6$ 
8 8 AG OD 7% MOVL 8&(R4), THISVAL 
6E pi 78 CMPL NEWBINARYKEY, THISVAL 
1D 11 00078 BRB : 
56 08 A& 00 0007D 6S: MOVL (R4), KEYSTRING 
1 67 OA 99 1 MOVZBL (R7), R1 
9 6 9A MOVZBL (KEYSTRING), RO 
1 p0 0087 VL #1, RS 
50 00 01 A? . 31 D OOBA CMPCS R1. 1(R7), #0, RO, 1(KEYSTRING) 
§ 1A 00092 BGTRU 7$ 
55 1 09 00094 SBWC OCW, RSS 
59 5 D0 00097 7$: MOVL RS, CH_RESULT 
g¢ 12 0009A 8$: BNEG = 1 
08 BC 4 pO 0009¢ MOVL 4, @ENTRYADR 
0 00658009 &F BO OOK 9$: MOVL #6651913, RO 
07 04 AE £9 000A8 10$:  BLBC  ASCBIN, 11$ 
58 6E D1 OOOAC CMPL § NEWBINARYKEY, THISVAL 
06 15 OOAF BGEQU 12$ 
D 11 00081 BRB 5 
9 p05 000B3 11$: TSTL CH RESULT 
9 19 90085 BLSS 138 
SA 4 D0 00087 12$:  MOVL 4, PREVKEY 
08 AE 64 D0 O0BA MOVE (R4), THISKEY 
51 08 AE 9— 000CO 13$:  MOVAB  THISKEY, R1 
50 1 p 00C4 MOVL #24, RO 
00006 00C7 BSBW GET MEM 
04 50 £8 OOOCA BLBS STATUS, 14$ 
0000v 30 000CD BSBW $CREFERROR 
4 00000 RET 
50 08 AE 00 00001 14$: MOVL  THISKEY, RO 
04 AO D4 00005 CLRL =: & (RO) 
12 AO B4 00008 CLRW =: 18 (RO) 
14 AO D4 00008 CLRL = 20(RO) 
60 A DO 000DE MOVL (PREVKEY), (RO) 
A 0 D O0E| v RO CPREVKEY) 
5 04 AE CE E4 BLBC ASCBIN, 15 
51 6E DO O00E8 MOVL §NEWBINARYKEY, R1 
9 11 QOEB BRB legs 
51 D ED 15$:  MOVL  R7, RI 
08 A0 1 0 FO 16$: MOVL 1, B(RO) 
08 BC 6 D 4 MOVL RO, @ENTRYADR 
AB D 8 MOVL RO. 4(CONTROLREG) 
Oc AB 6 FC INCL 1 {CONTROLREG) 
50 00658011 8F 0 OOFF MOVL #6651921, R 


; Routine Size: 263 bytes, Routine Base: $CODE$ + 0037 
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ef 


rence facility 
add key to hash table 


15-se0- 


1986 3:70:36 


VAX-11 
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$s 
HAST 
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2.V 
ct 


ro sRcScrer. 832;1 


ae 


CRF _CREF eterence facility 18.58 1 7:38:55 VAX-11 Bliss-32 V4. P 11 
y062000 “= Allocate hagh table if needed 12-8001 98e $3332: DISKSVMSMASTER:CCRE. OSRCICREF . 832;1 ar (4) 
3 3 Eseri. *get_hash -- Stiocete hash table if needed’ 
3 ROUTINE get_fiash : JSB_0 = 
; BEGIN 
3 lee 
: : Allocate a hash table if none allocated 
; Inputs 
; é None 
; ; Outputs: 
; ; hash table allocated if not done so 
4 = 
; EXTERNAL REGISTER 
; 3) controlreg = 11 : REF BBLOCK; 
; ; IF gcontrotres Cerf$l_hasht] EQ. 0 
3 THEN BEGIN 
; 5 perform (ge (erf$c sheohs ize *4, controlreg Cerf$l_hasht))); 
; controlreg terest lastk ey] = | 
3 controlreg (crf$l_entries) = 0; 
; END; 
; 10 RETURN true | 
; 312 END; !Of get_hash 
68 05 00000 GET_HASH: 
TSTL (CONTROLREG) 3 0434) 
19 1 0009 BNEQ 2s 3 | 
/ 58 MOVL CONTROLRE ; 0436. 
0 00000000" &F 007 MOVL  #<CRFSC wemmatins RO ; | 
00 BSBu GET ZMER. : 
1 BLBS STATUS : | 
00dov § 14 BRE CREFERROR ; | 
of AB 17 18: CLRL 4(CONTROLREG) : ot 
$0 ae iA 2 ee + haa ~ ‘ements : Scat | 
i 2 ? RSB : 0443 | 


3; Routine Size: 33 bytes, Routine Base: SCODES + 013E 


LS 
1 


erfein 


BREESE ao NSS ELS OP ORO S SOS 


reference foc titty 
srtkey -- Insert key into hash table 


1 ZSBTTL note iee aris =-- Insert key into hash table’ 
GLOBAL ROUTINE er tS ie ; 


Be f2:90:38 Of 


K-11 a alee -32 V 
SKSVM TER: ct F.S sme Scner 832;1 


nsrtkey (control, keyadr, valadr. valflg) = 


key is entered into table 


ee 

; Insert a key into the table 

! Inputs 

i control Address of ccosenreterence control block 
; keyadr Address of ASCIC key or binary value 
4 valadr Address of key value 

: valfig flags word 

Outputs: 

i 

' 

i 


control : REF BBLOCK; 
CAL 

cachentry : REF BBLOCK, 

status; 


GLOBAL REGISTER 
controlreg = 11 : REF BBLOCK; 


controlreg = .control; 


IF NOT (status = get_hash ()) 
THEN RETURN .Status; 


status = add_key (.keyadr, cachentry); 
Update entry in cache 

if .cachentry NEQ 0 

THEN BEG 


cachentry y fkeyst_ valadr) = .valadr; 
pechentry key$w_valflg) = .valflg; 


RETURN .status 
END; 


OFFC 00000 


Ae BB Goons 


'Add/lookup key in hash table 


'If it was found/allocated 


'Of crfSinsrtkey 


-ENTRY AT laa Save R2,R3,.R4,R5,R6,R7,RB,RI,-; 


SUBL2 #4, 
MOVL CONTROL CONTROLREG 
BSB6 GET_ 


snl 


6 
-Sep- :38: - - -0-74 

yo42000" Sib locetien at lascts Law tenn tech Gebte 1easeen She T3itkise || MieceuwRALSfeacceRe sacScner 32:1 "2% dF 
: a pgs, gga. 18 Faure 
FECO CF “ 03 PB 0001 CATS | #0. ADD. KEY ; | 
gf 6 ¢ 18 movL CACHENTRY, R1 $ 0483 
o¢ Al o¢ AC D 1 MOVL VALADR, 12(R1) : gs 

Al AC iN 33 MOVW VALFLG, 16(R1) : 
1$: RET . 90 


3; Routine Size: 40 bytes, Routine Base: SCODES + 015F 


-11 Bliss 


X- ~ P 
SKSVMSMASTE me 


voez000" sritlnssiret oe eos boterenns to a key 13-sep-1964 $3: if: % i TERSCERE SRCICREF. 832;1 di | 


ZSBTTL none ine aris f -- Insert reference to a ; 
OBAL ROU erfsinsrtret (control, keyadr, relia, reflag, defind) = 


+e 


nsert a reference to a key. If the key is not in the table, it is 
nserted. 


Inputs: 


' 

i 

i 

i 

i 

; 

i control Address of cross-referenc Senne table 
i keyadr Address o ase ie key or binary value 

i retadr Address of ASCIC string for referencer 
i refla referencer flags 

defin 0 = reference, = definition 

i 


control : REF BBLOCK 
refadr : REF VECTOR (,BYTE); 


LOCAL 
cachentry : R 
defnam : REF 
refblk : REF BBLOCK, 
: REF BB 


status; 


GLOBAL REGISTER 
controlreg = 11 : REF BBLOCK; 


controlreg = .control; 


IF a (status = get_hash ()) 
THEN RETURN .Status; 


status = add_key (.keyadr, cachentry); 1 Add/ Lookup key 

IF osachentr ea. 0 'If no memory today 
' THEN RETURN .status; 

i 


If defining reference, then put definer name info in, else add to 
the reference List 


ir -defind 
nae es 


(defnam = scochentr {ke sid gefnen}) NEQ 
THEN free_mem (.defnam t - defnam (0)); 'Deallocate old name 


AEUVI—OOBNON EW O09 NONE WV ODDIE AR UO Oe MOR OM 


ee eer h ah cb ddchdhdabbbbedb Ab Ab dh Ah Ab Ab Ab ab Ah ab Ab Ab Ab Ab ah ah ah ah Ab al 


pectors (get_mem refa r (0) + 1, defnam)); ‘Allocate space for definer name 
ASMOVE (oreToge (03 : retadr. .defnam); iand fill it in 

cachentry ([key$l_de tan)’: -defna 

cachentry [key$w_deffig = cretles: 
RETURN crf$_succéss 


& 
6 
4 
& 
410 
i 
i 
414 
is 
413 
418 


NOUS WHO 0 


DEFNAM, R1 


Save R2,R3,R4,R5,R6,R7,R8,R9,-; 


OFFC 00000 ENTRY CRESINSRTREF , 
0c C2 0000 SUBL2 a3 SP 
AC DO 0000 MOVL CONTR ROL . CONTROLREG 
AC 10 00009 § GET_HASH 
50 €8 00008 BLBS § STATUS, 1$ 
4 QO00E ET 
SE DD OOOOF 18 PUSHL SP 
AC DD 00011 PUSHL KEVADR 
02 F 14 CALLS ADD_KEY 
6 D 19 MOVL CACNENTRY, R6 
i} 1C BNEO 
0 1E RET 
AC D 1F 2% MOVL §REFADR, R7 
AC E ; BLBC FFAND, 4$ 
A6 D MO (R6), DEFNAM 
0D 1 C E 
9 SDEFNAM, RO 
DEFNAM 
FREE M meEM” 


yo47000" Sriblastinel oF feccks Telerau G5 & be 15-00-1984 43:72:83 ScsumGhaStencctne sacicrer.e32;1 2% 


; 61 

‘ 2 6 ~~ BEGIN 

: 4 the defining reference, look through the reference List, find the insertion point and insert 
; : 5 7 this reference % not already there — “a * 
: 625 4 refblk = cachentry Ckey$l_reflist); 

: : $ 5 lastref = .refblk; ke r 

3 : $ Pains icotetn = .refblk Cref$l_next]) NEQ 0 

4% 59 4 ch_result = CHSCOMPARE  (. (aretadr C01, cetadr (13 

; 4 & trets b_refing], refblk Cref$t_refnam)); 

; 4 ¢ 61 4 IF .ch_result EQL 

3 4 ¢ 4 THEN RETURN * % reese 

; 4 65 4 LSE IF “Ene resut 'Found the point 

3; 435 64 4 THEN XTTLOOP 

} 2 565 4 Lostret = .refblk; ‘Remember last ref 

; 4 269 ' : 

: tz 208 : Insert the new reference 

3 441 255 ; rform (get_mem oe fixedsize + .refadr (0), refblk)); 'Allocate memory for it 
> 64 571 Pefbtk Cref$l_next] = .Tastref Cref$l_nextd; 

; 44 27¢ astref Cref$ vet) = .refblk; 

3 4446 7 refblk CretSy. retth j= ret log: 

3 445 574 CHSMOVE (.refadr [OJ + 1, refadr (0), refblk Cref$b_refing)); 'Move in reference name 
: rr 373 A cris. eh. 

: 448 §23$ END; : 'Of crfS$insrtref 


15) 
(6) | 


CRF _CREF Cross reference facility ibe -1 2:38:55 VAX-11 Bliss-32 V4.0- P 1 
9042000 crfsinsrtret =-- Insert reterence to a key met 93:48:32 DI SKSVMSMASTERSEC :CCR AVSRCScner 8 832;1 nc ay 


52 7 OA MOVZBL (R7), R2 ; 
) INCL R : 
50 p " MOVL Re, RO ; 
6 008° th Hitt Sraris 9s 
04 BE 4 5 4 MOVC3 2, (RP) @DEFNAM + 0543 
16 Ab 6 AE D MOVL DEFNAM ht + 0544 
12 6 0 ac : MOVWd REELAG, (Re) + 0545 
6F C BRB 11$ + 0549 
08 A 6 Me 9 4$: MOVAB 4(R6), REFBL + 0554 
af § AE 0 do06 Move AEFBEK? LASTREF + §337 
08 AE f D ts 5$: MOVL (R46), REFBLK : 
F 13 00 6f BEQL «BS : 
1 7 OA 0 1 MOVZBL (R7), R1 + 0559 
4 08 AE po 074 MOVL  REFBLK, R4 + 0560 
0 06 AS 9A 00078 MOVZBL 6(R4), RO : 
55 01 pO 007¢ MOVL #1, R5 : 
50 00 01 «A? - 31 D O07F CMPCS R1. 1(R7), #0, RO, 7(R4) : 
03 1A 00087 BGTRU 6$ ; 
55 01 D9 00089 SBWC)Otié«#1z,,- RS : 
56 5 00 O08C 6$: MOVL RS. CH_RESULT : 
08 12 0008F BNE + 0561 
50 00658019 8F v0 00091 MOVL #6651929, RO > 0562 
05 19 00099 7$: BLSS  8$ : 0563 
58 54 D0 00098 MOVL  R4, LASTREF + 0565 
CB 11 0009E BRB : 0557 
51 08 AE 9E OOOA0 8: MOVAB REFBLK, R1 : 0570 
0 67 9A OOOA4 MOVZBL (R7), RO : 
50 07 £0 O0A7 ADDL2 #7, RO ; 
00006 OOAA BSBW = GE f_MEM : 
04 50 cs OOAD BLBS STATUS, 10$ ; 
0000v 30 00080 9S: BSBW CREFERROR ; 
04 00083 RET : 
50 08 AE 00 000B4 10$: # MOVL  REFBLK : 0571 
69 68 DO 00088 MOVE As be (RO) : 
6 50 00 00088 MOVL (LASTREF ) + 057 
04 Ad 10 A © 008 OVW  REFLAG, 4(RO) : 057 
51 67 9A 000C MOVZBL (R7), R : 0574 
51 06 O0¢6 INCL ; 
06 Ad 67 51 00¢ MOVC3 » 6(RO) : 
50 00658001 &F BO 90CD 11$: MOVL Bobs i905. RO : 0575 


; Routine Size: 213 bytes, Routine Base: S$CODE$ + 0187 


o 
~ 
n" 


nm 


Cross reference facility 
creferror -- call user error routine 


wis 
Mur 


bo te Ay te ty ty ty ty ty ty ty Ay ty Oy ty Ys 


Seeressaeceseeeee 
[SSSSVESLSNLSSSSE 


3; Routine Size: 


22 bytes, 


14-Sep-1984 


or routine’; 


1 ZSBTTL ‘creferror <= call us er err 
: JSB_1 = 


ROUTINE creferror (errorcode) 
BEGIN 

lee 

Call user error routine on error 
Inputs: 

x errorcode the error code to pass to user 
ie 


EXTERNAL REGISTER 
controlreg = 11 


BIND ROUTINE 
user_error_routine = controlreg (Ccrf$l_error); 


: REF BBLOCK; 


IF oyeer error_routine NEQ 0 
THEN’ (.user_error_routine) (.errorcode); 


= -errorcode 


52 DD 00000 CREFERROR: 

PUSHL 

52 50 00 0000 MOVL 

40 AB 05 0000 TSTL 

98 13 00008 BEQL 
2 DD QO00A PUSHL 
40 68 01 Fe 0000C CALLS 
50 52 D0 00010 1$ MOVL 

04 Ba 00013 POPR 

5 00015 RSB 


Routine Base: S$CODE$ + 025C 


18-58 “Sep-1984 t 93:7 


a } 


=~ 


8:55 VAXe1! Bliss=32 v4.027 Page 17) 
£:3% -DLSKSVMGMASTER SCORE SRCScREF.B32;1 29° (d) 
| 
| 
} 
| 
| 
| 
'If user supplied routine 
'Of creferror 
; 0579 
RO, R2 : 
nbn: : 0597 
ERRORCODE : 0598 
#, 464 (CONTROLREG) F 
ERR ROR CODE, RO > 0600 
<R2> : 0601 


6 
Cross reference facility 18-sep-19 4 $3: 38:33 VAX-11 Bliss-32 V4.0-74 
crfSout == output the cross reference 14-Sep-1984 12:14:36 DISKSVMSMASTER:CCRF .SRCICREF .832;1 


ZSBITL ‘erfSout -- output the cross reference: : 
nw 


; 1 : 

: 4 § +s ROUTINE crfSout (control, Linwid, Linespagel, Linesucpag, printind, saveind) = 
; 605 

: 07 Sig h f 

: ! utput the cross reference 

; ret } 

; rst : Inputs: 

; 0611 : control Address of cross-reference control table 

; Bel¢ ; Linwid Width of Listing Line 

; bey : Linespagel Number of Lines on first page 

; 614 : Linesucpag Number of Lines on succeeding pages 

; 0615 } printind print indicator (crf$k_values, crf$k_vals_refs, crf$k_defs_refs) 
3 Bots saveind Save tree indicator (crf$k_save, crfS$k_delete) 

3 0618 ad 

3 0619 

; 0620 ROUTINE maxfieldwidth (tableaddr) : JSB_1 = 

3 0621 BEGIN 

: 06 ¢ 

; 06 '++ 

3 bese ! Search through the field descriptors for the one with the 

; 0625 : maximum length and return it. 

; 499 bess ' 

3 0627 ! Inputs: 

: 2 0628 : ; 

3 2 +434 tableaddr Address of start of field descriptors 

; 504 bee! ' Routine value: 

; 505 6 ; ! 

; 506 63 ! width of biggest field descriptor 

3 6307 0634 ! 

: 508 0635 leo 

> 509 0636 

; 510 0637 LOCAL 

3 31% 0638 wid, 

3 2\¢ 0639 fldptr : REF BBLOCK; 

s 3) 0640 

; 514 0641 If .tableaddr EQL 0 'If no table, return 0 

: 515 064 THEN RETURN 0; 

; 516 064 

3 «517 0644 fldptr = .tableaddr; 

3 218 p64? wid = 0; 'Set max width to 0 

; 520 bee? WHILE .fldptr Cfld$Sw_mask] NEQ 0 ‘Loop through all looking for larger width 
; 2s! 0648 4 DO BEGIN 

; * § 0649 4 IF .wid LSSU .fldptr Cfld$b paring) ! and if one is found 

3; Se 0650 4 THEN wid = .fldptr Cfld$b_max(ng); ! then set max width to that 
3 335 0652 4 fidote = fldptr Cfld$t_nxtdesc); ‘Link to next field descriptor 
; 65 , 

; 259 0688 RETURN .wid ‘Return maximum width 

3 258 8822 : 

; 529 656 END; ‘Of maxfieldwidth 


7 

CRF_CREF Cross reference facilit 18-5 Sep-19 5 VAX=11 Bliss-32 V4. Pa 19) ( 
9042000 crf$out -- output the cross reference 14-Sep eats 4 13:7 o:%% DISKSVMSMASTER:CCRF. OCRCICREF. B32;1 ” (8) | \ 

50 DS 00000 MAXFIELDWIDTH: 

TSTL  TABLEADDR ; 0641 

18 13 00002 Beat 4$ : | 

51 D4 00004 CLRL = WID + 0645. 

$0 8 99 1$: ist (FLDPTR) : 0647, 

51 03 ad 08 00 ED OOA CMPZ7V #0, #8, 3(FLDPTR), WID + 0649) 

4 18 0001 BLEQU : | 

51 03 AO 9A 01 MOVZBL 3(FLDPTR), WID ; 9650 

50 OC CO 00016 2$: ADDL2 #12, FLDPTR : 0651 | 

EB 11 0001 BRB 1 + 0647) 

50 1 b0 0018 3$: MOVL  WID, RO : 0654 | 

05 OO01E RSB : 
50 D4 0001F 4$: CLRL = RO ; 0656 | 
05 00021 RSB : | 


; Routine Size: 34 bytes, Routine Base: S$CODE$ + 0272 


PO cage ashe 


7 
CRF _CREF Cross reference facilit 1$-se 1984 23:38:55 VAX-11 Bliss-32 V4.0-74 Pa 0 
9042008 crfSout -- output the cress reference 1a-8ep-19 4 93:78:33 DISKSVMSMASTER:CCRFE .SRCICREF .832;1 ” 8 
; ; 3 poise formatfield (fieldwidth, outdesc, faocontrol, faoarg) : CALL_4 = 
; ; '+¢ 
3 5 1 Format a field 
: j Inputs: 
; § 665 3 i tieldwidth width of the field 
>; 540 08 : outdesc address of string descriptor for buffer 
: 541 066 ; faocontrol address of fao control string 
; : bey faoarg argument for fao | 
: 544 06 i Outputs: 
ec 4 an oie | 
g ré | 067 ! string is formatted, outdesc is updated. 
: 4 067 ! 
; 548 0674 ed 
; 549 0675 
; 550 p67e P 
$ 2} 067 outdesc : REF BBLOCK; 
; ¢ 0678 
; 5 0679 LOCAL 
; 554 0680 Length : WORD; 
3 399 set 
3 336 6 ¢ EXTERNAL REGISTER 
3 eef 06 controlreg = 11 : REF BBLOCK; | 
; 235 0685 perform (SYSS$FAO (.faocontrol, og bo -outdesc ofogere)) ‘Format the field. 
3 269 288 outdesc peeceu..tengtnl = ,outdesc dsc$u_Lengthi - .fie dwidth; ‘Adjust the descriptor 
: re. 44 outdesc (dsc$a_pointer] = .outdesc Cdsc$a_pointer] + .fieldwidth; 
: 568 89 3 RETURN true 
; 564 690 
; 565 0691 END; ‘Of formatfield 


001C 00000 FORMATFIELD: 
. WORD 


Save R2,R3,R4 3 0657 | 
5E 04 ¢2 0000 SUBL2 #4, SP F 
10 AC oD 990 PUSHL FAOARG > 0685 | 
52 08 aC OD 08 MOVL OUTDESC, R2 : | 
52 0D 0000C PUSHL R F 
08 AE OF 0005 PUSHAB LENGTH : 
0C AC DD 0001 PUSHL FAOCONTROL : 
000000006 00 4 FB 00014 CALLS #4, SYSSFAO : 
0 : 1B BLBS TATUS, 1$ ; 
As 10 0001 BBB CREF ERROR : | 
62 04 AC A2 00021 18 SUBW2 FIELDWIDTH, (R2) : 0686. 
04 a2 04 Ac CO 00025 ADDL2 FIELDWIDTH, 4(R2) > 0687 | 
4 0002D RET > 0691 | 


8 


; Routine Size: 


Cross reference facility 
crfSout -- output the cross reference 


46 bytes, 


Routine Base: 


SCODES + 0294 


15-3 


14- 


7 
Sep-19B4 f2:16:36 DI SKBUMSRASTE 


s-32 V 
TER: 


6.0- 
ctr REO SRCICREF. B32;1 


rae 3 


7 
CRF _CREF Cross reference facility iS-se 1984 23:38:55 VAX-11 Bliss-32 V4.0-74 P 
v04 crfSout == output the cross reference 12-Sep-19 4 ( 38:32 DISKSVMSMASTER:CCRE .SRCICREF .832;1 age 485 
67 , pot ine findformat (outdesc, keyflag, formatdesc) : CALL_3 = 
$ 94 
0 95 'e4 
71 } Find format associated with a bit mask and the format the field 


ie, a8 ; Inputs: 
75 0 3i outdesc address of string descriptor for outpt buffer 
ue 54 ; peye log flags to find fornet lor” ; 
f a) } formatdesc address of start of cref field descriptors 
704 Outputs: 
706 field is formatted, outdesc is updated. 
708 bee 
LOCAL 
fldptr : REF BBLOCK, 
curfld : REF BBLOCK, 
mas 
comf lags; 


EXTERNAL REGISTER 
controlreg = 11 : REF BBLOCK; 

comflags = NOT seeytten: 

comflags = .comflags AND ZX'FFFF'; 

fldptr = .formatdesc; 


'Get complement of flags 
' trimmed to a wor 
‘Point to the format descriptors 


curfld = .fldptr; 


WHILE (mask = .curfld Cfld$w_mask]) NEQ 0 
DO BEGIN 
mask = .mask AND fld$m_usrbits; 
IF (IF NOT .curfld Cfld$b_set_cirJ 
THEN (.mask AND (ROT .comflag 
ELSE (.mask AND (NOT .keyfla 


HEN fldptr = .curfl 


‘Look at all field descriptors 
'Get mask this descriptor 


'Check if set or clear bits 
! and compare 


'If it matches then remember it 


T d; 
gurtle = curfld Cfld$t_nxtdesc); 'Link to next field 


SISTER STORE SARS St tt tt ot te 


RETURN formatfield ae Plager Ss ga maxing], ,outdesc 'Format the field and return 


J 
(dpte Cfld$b_faodsc), .keyflag) 
END; Of findformat 


SSN SNS SN 


WWW AI AI I I inn nonononnononong 2 


SOOOQOCOCOCOCOCOCSCOOOSOOOOOOOOCOOOoOoOoOoOoOO 
DONA WN (OO OONOUSWIN OODOVNOUES WO 0 


RIAA BN & 


CAA 
—— 


wn—O 


003¢ 00000 dseoriicemaes* 


-WORD Save R2,R3,R4,R5 : 069 
5 08 ac D 9902 MCOML KEYFLAG RS ; 894 | 
0 BO 00 MOVL RS, COMFLAGS : | 
0 0 3¢ 00009 MOVZWL COMFLAGS, COMFLAGS ; 0720 


Lh 


DD) 


; Routine Size: 


Cross reference facility 
crfSout -- output the cross reference 


5; 
‘ 


7E 
AF 


72 bytes, Routine Base: 


15- 

14- 

oc af pe : 
ui i be 

02 a Ep 1D 

gH ay 
He 
ee 

DD 00 
ge a 2 

See 

BSS 


SCODES + 02C2 


Sep-1986 fa:i4: 


33 VAX=11 Bliss-32 V4.0-7 


DISKSVMSMASTER:CCRF. SRC CREF .832;1 


FORMATDESC, FLDPTR 
FLDBTR CURFLD 
URFLB) « MASK 


#15, MA K. MASK 
actuary, 33 
OMFLAGS, 


ane R5 
He tad he 
a2¢ 


eve LAG 
GCFLDPTR) 


SUTEBE TR) =(SP) 
#4, FORMATFIELD 


rae BF 


: 0738 


; iy 
: O78 


ey 


CRF _CREF Cross coterence facilit 18-sep “1 VAX-11 Bliss-32 V P 4 
yoe2008 ert == output the cross reference =300n 1382 3 if: % DISKSVMSMASTER: th F.S £ sac Serer 032: 31 age 49 
; ; r Boyt int outputline (Linedesc, protodesc) : CALL_2 = 
: 61 74 
; 61 74 'ee 
: 1 Sy : Output Line by calling user routine 
; re Inputs: 
; 5 74 i Linedesc address of string descriptor for Line 
FH $ t protodesc address of original string descriptor for Line 
3 $ , ; Outputs: 
; $ 7 j i Linedesc reset to protodesc 
3 ? ? : buffer pointed to by protodesc is blank-filled. 
; ? 1 f 5 user output routine is called. 
: 6 : Fao ine 
: 83 29 
: 6 760 Linedesc : REF BBLOCK, 
3 ? 4 protodesc : REF BBLOCK; 
: 639 e8 LOCAL 
$ rr ree desc : BBLOCK Cdsc$c_s_bin); 
; te 766} EXTERNAL REGISTER 
3 oF re controlreg = 11 : REF BBLOCK; 
; 645 789 desc Cdsc$w_length] = .protodesc (Cdsc$w_length] - 'Set descriptor to length of Line to print 
3 one 7 ? -linedesc Cdsc$w_length); 
; 64 77 gose Cdsc$a egointer? = .protodesc dsc$a “pointerd; 
3 oe a CHSMOVE (dsc$c_s_bln, .protodesc, .linedesc); ‘Reset the descriptor 
; 650 7 (.controlreg Cerf$l_output]) (desc); ‘Call user routine to output Line 
; 652 77 CHSFILL (ZASCII * *, .desc edostu, length], ‘Blank fill used part of Line 
3 634 ve .desc Cdsc$a_pointer)); 
; 6 5 719 RETURN true 
; re 781 2 END; 'Of outputline 
003C 00000 OUTPUTLINE: 
-WOR Save R2,R3,R4,R5 : 073 
; 08 ¢ g SUBL #8, SP 3 
8 AC D MOVL PROTODESC. RO ; 2% 
6E 6 4 6C A SUBW3 @LINEDESC. (RO), DESC ; 07 
06 A e A p MOVL 4 {R0) DESC +4 : 077 
06 BC 6 ' mOvC3 , (RO), @LINEDESC : uy 
1 1, @68(CONTROLREG) ; 


; | 
vou=b00” er thout’ =< cutout the cress reference 13-00-1904 13:72:33 TScSungnas face the SRCSCREF .832;1 Poe fs 
- = 04 er 2c ptf MOVCS #0, (SP), #32, DESC, aDESC+4 | ; 0777 

” ie Rov. #1, RO 


: 0779 
: 0781. 
; Routine Size: 41 bytes, Routine Base: SCODES + O30A 


Led 
» 
~” 
inal 


SESSESERESS 


WISN ew SS 


PAEAAAAAAAO 
SANG 


AO 
PSSSSSSSSSSRSASIS 


o 
o SSS 
w 


SSSsssssssssss 


Sw 


MS OONOUNES WN“ OOOVNOU Sw 0 OC 


$0 G0 0 0 09 9 0.9 GP Ge Ge Ge Go Go Go Go Oo G2 G2 G2 G2 Ge G2 Go Ge Go Go Ge Go Go Ge O0-¢ 
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reference facility 1}-seo-1984 $3:38: 93 VAX-11 Bliss Ze ve sOece cner .032:1 Page 26 


ss- 
t == output the cross reference 14-Sep-1 DISKSVMSMASTER:CCRF.SR 


ROUTINE formatkeyval (keyadr, Linedesc) : CALL_2 = 
BEGIN 7 r " 


++ 


' 

Format keyl/key2/vali/val2 fields for a key 
i Inputs: 
i 

: 


: keyadr Address of ASCIC string or value of binary key 
Linedesc Address of string descriptor for output Line 


Outputs: 


' 
i 
' 
i 
: fields are formatted into output Line. 
i 


keyadr : REF BBLOCK 
Linedesc : REF BBLOCK; 


CAL 
fieldwidth 
curfld : REF BBLOCK; 


EXTERNAL REGISTER 
controlreg = 11 : REF BBLOCK; 


IF (curfld = .controlreg caress kifmtbl]) NEQ 0 'Get field descriptor for key 1 

THEN formatfield (.curfld C¥id$b_maxing], .Linedesc, ! and format the field 

curflid Cfld$b_faodsc], .keyadr Ckey$l_keyadr)); 
If (curfld = .controlreg Cerf$l_k2fmtbl]) NEQ 0 'If key2 field descriptor present 
THEN findformat (.linedesc, .keyadr Ckey$w_valfig], .curfld); ! then find format and output it 
IF (curfld = .controlreg fee rgt vifmtblJ]) NEQ 0 'If vali field descriptor present 
ae keyedr Ckey$l_valadr) Ea. 0 ! then handle O-address 
Mel dwidth = ,curfld 3 he maxing); etting the field width 
= 


inedesc [dsc$a_pointer] = .linedesc Cdsc$a_pointer] + .fieldwidth; 


ELSE formatfield (.curfid CfLdSb_maxing). slinedesc, curfld Cfld$b_faodsc], ‘otherwise format val1 
-(.keyadr key$l_valadrd)); 


If (curfld = .controlreg Cerf$l_v2fmtbl]) NEQ 0 
THEN findformat (.linedesc, .keyadr Ckey$w_valfig], .curfid); 


RETURN true 
END; ‘Of formatkeyval 


l 

f ! by q 

t ynogese dsc$w_length - Cinedesc Coacty. Lon th] - .fieldwidth; ! and just skipping the field 
E 


‘Format val2 field if present 


000C 00000 FORMATKEYVAL: 


? i 
CRE _CREF Cross reference facilit 15. -1 2:38:55 VAX-11 Bliss- 4.0-74 P 7 
yo2008 cr t -- output the cress reference 1 ~300- 1383 93:78:93 WIEKSURGMASTERSCERE SRCSCREF 03251 age 43 


«WORD Save R2,R3 3: 0782. 
53 FFSe CF MOVAB F ye Nitin R3 ; 
4 AB ROVE (CONTROLREG), CURFLD ; 0810) 
50 A MOVL KEYADR, RO t 0812) 
8 np PUSHL 8(R0) : 
A PUSHAB 4(CURFLD) : 
§ A PUSHL L INEDESC ; 
7 A MOVZBL 3(CURFLD), =(SP) : 
§ 0 CALLS #4, FORMATFIELD F | 
4C i ROVE ZO¢CONTROLREG) , CURFLD + 0814 
: PUSHL é FLD : 0815. 
0 04 ac MOVL KEYADR, RO : 
E oA MOVZWL 16(RO). (SP) ; 
0 aC PUSHL LINEDE ; 

2 «A3 0 CALLS #3, FINDFORMAT : 
52 50 Ag ROVE BO(CONTROLREG) CURFLD + 0817 
50 04 AC MOVG KEYADR, RO + 0818 

0c Ao TSTL 12¢RO) : 
0D BNEQ ; 3 
50 03 A MOVZBL 3(CURFLD), FIELDWIDTH + 0820 
61 ; SUBW2  FIELDWIDTH, (R1) + 0821 
046 Al 0 ADDL2 FIELDWIDTH, 4(R1) : 08 : 
OF BER 4$ : 081 
oc 8B PUSHL @12(RO) > 0825 
04 A PUSHAB 4 (CURFLD) + 0824 
7 03 A2 MOVZBL 3(CURFLD), -(SP) ; 
: 04 CALLS #4, FORMATFIELD ; 
2 54 AB ov 84 (CONTROLREG) , CURFLD + 0827 
52 PUSHL  CURFLD + 0828 
50 04 AC VL. KEYADR, RO : 
7E 19 AO MOVZWL 16(RO). =(SP) : 
0 aC PUSHL LINEDESC F 

2 «AB ° CALLS #3, F INDFORMAT : 

50 1 MOVL «86 #1. R + 0830 
RET > 0832 


3; Routine Size: 126 bytes, Routine Base: SCODE$S + 0333 


Lh 


>) bd ds td ey 
VEWN (SO OODNOVS UN “OVO OVRUNES UN 


SD pp i Me ny ee, ee | 
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SN 
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2S 
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w 
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cr fou 


3 
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23235; 
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~“ 
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reference facility 
t -- output the cross reference 


; Main body of CRFSOUT 


control : REF BBLOCK; 
LOCAL 


Linebuf : BBLOCK CerfSc_maxlinwid + crf$c_linextral, 
bortockers : REF VECTOR C-LONG], 
retepers ne, 


2. 
Linesthispage, 
Linecount, 
curlinedesc : BBLOCK Cdsc$c s.blnJ. 
linedesc : BBLOCK Cdsc$c_s_Blnl; 


GLOBAL REGISTER 
controlreg = 11 : REF BBLOCK; 
J 
If nothing has been entered into the cross ref then quit now 


controlreg = .control; 

IF .controlreg Cerf$l_hasht] EQL 
OR .controlreg (crf$l_entries) EQL 0 
THEN RETURN true; 


i 
: Make sure output routine is present 


IF .controlreg Ccrf$l_output) EQL 0 
THEN RETURN creferror (crf$_no_outrtn); 


1 
: Initialize output Line to blanks, set up descriptors for Line 


CHSFILL (ZASCII * °, crtSc_mont inuid + crf$c_linextra, Linebuf); 
Linedesc Cdsc$w_length] = .1 : 


Linedesc dsc$a_pointer] ='linebuf; 
CHSMOVE (dsc$c_s_bln, Linedesc, curlinedesc); 


Sort the hash table 


perform (get_mem (.controlreg Cerf$l_entries] * 4, sortedkeys)); 
sort_hash_table (crf$c_hashsize, .softedkeys); 


i Determine widths of various parts of Line 


7 
15-Sen-1984 25:48:55 vaNoTt Btieees 


be hed bos 
CRF..SRCICREF .832;1 


5 


| 
| 
| 
i 


7 
Crops reference facility 1$-sen-t9e4 25:38:55 


LA 


' 
refindent = 0; 


=s3S 


IF (fldesc = .controlre Corto kl facet )) NEQ 0 


THEN refindent = .fldesc d$b_maxing]; 


If (fldesc = .controlreg Ccrf$l_k2fmtblJ]) NEQ 0 


THEN refindent = .refindent + maxfieldwidth (.fldesc); 


crf$l_vifmtbl]) NEQ 
THEN refindent = .refindent + .fldesc Cfld$b_maxingJ; 


crf$l_v2fmtbl]) NEQ 0 
THEN refindent = .refindent + maxfieldwidth (.fldesc); 


NOME wy 


If (fldesc = .controlreg 


Sn Si itn, Bi, Hin Bi i i 
J 


3a 


IF (fldesc = .controlreg 
1 


Make sure that key1/key2/val1/val2 can fit on Line 
if .refindent GTRU .Linwid OR .Linwid GTRU crf$c_maxlinwid 


$90 

3 THEN RETURN ert$ Linelng; 

: RS 9909 ° 

3; 788 910 keyvalsiz = .refindent; 

3; 789 911 : 

; ry O31¢ Linesthispage = .linespagel; 

3 792 pate ! 

3 ak O36 : If just printing keys and values, then do it all now 
: 795 091 

. F 091 IF .printind EQL crf$k_values 

; 791 0319 THEN BEGIN ‘ 

: 799 0921 keypointer : VECTOR Cerf$c_maxcol, LONG), 

8 $00 09 ; lwidth : VECTOR (2J, 

3 1 09 keysperline, 

; 80 3 4 thispointer : REF BBLOCK, 

; 80 925 blanksbtwncol, 

3; 804 9 $ columnsleft; 

; 805 9 

3 508 +4 3 BUILTIN EDIV; 

: 808 0930 3! 

; 809 0931 ! Figure the number of keys per Line and the number of spaces 
3 HH 44 ; between colurns. 

: 81 9 

; i§ 5 lwidth £0} = .linwid; 

: sis bae$ twidth C1) = 0; 

3 «6815 9 EDIV (keyvalsiz, lwidth heyepert ine, columnsleft); 
: 816 338 keysperline = -keysperline - 1; . 

> 817 IF (blanksbtwncol = .columnsleft / .keysperline) EQL 0 
: 18 40 4 THEN BEGIN 

3; «81 941 4 keysperline = .keysperline - 1; , 

3 0 § 4 columnsleft = .columnsleft + keyvalsiz; 

: 1 943 4 blanksbtuncol = .columnsleft / .keysperline; 

: 5 945 keysperline = ,keysperline + 1; 

3; 824 946 


Vv 
Dd 


Ax-11 Bliss-32 et bs 
ISKSVMSMASTER: CCRF .SRCICREF .632;1 


‘Remember width of key1l/key2/val1/val2 
'Set number of Lines on first page 


‘Put width into a quadword 


‘divide to get number of columns, and spaces 
'One Less column than keys 
‘figure blanks between columns 


‘if none, then one 
‘adjust columns le 
'Recompute blanks between columns 


sone key per Line 


‘readjust number of keys per Line 


rage 83 


CRF _CREF Cross reference facilit 18-56 $1984 23:38:55 VAX-11 Bliss-32 V P 0. 
7042000 crfSout == output the cross reference 12=808= 1386 3:48 3% DISKSVMSMASTER: ct ACSReScner 03 832;1 a9 43 
; 5 7 CHSF It, L (0, napgeertnen - 1) * 4, keypointer (1]); 
: 8 Re Sonnet nter "coat | 
; 8 3 i Loop until all are printed | 
; 0 9 WHILE .keypointer [0] LEQ .controlreg Cerf$l_entries] 

; 831 338 4 00 BEGIN ~ - | 
3 : 999 4 7 Find key that goes in each column | 
; 5 389 6 iNCRU col FROM 1 TO_.keysperline - | 
: 4 2 bo keypointer C.col] = .keypointer t. col - 1) + .Linesthispage; | 
; 960 4 Now loop over all Lines on pa 
H 9 349. 4 i digs a | 
3 0 306 4 INcRU currentline FROM 1 TO .Linesthispage | 
; 1 3397 O BEGIN | 
; B08 965 ' 
: : 308 : Loop over each column on Line 
; § f INCRU col FROM 0 T keysperline . 

: 0969 DO IF skeypo inter col) LEQ pov ot Ms Cerf$l_entries] 

; 848 0970 AND ispointer = .sortedkeys C.keypointer L.colJ = 1]) NEQ 0 
; Heh o37) $ THEN BEGIN 

; e31 0975 6 IPrveot Nea sk -thispointer, curlinedesc); 'format this key 
: S26 Soe § ie co) keysperLine - 1 'If not Last hey on Line, add spaces, 
3 B54 0976 7 A, aS Cdsc$w_length] = Ei) teeters Cdsc$w length] - 
; 855 0977 7 twnco 
3; 856 0978 7 curlinedesc Cdsc$a _pointer] = .curlinedesc (Cdsc$a pointer] + 
3 Bor 0979 7 eblanksbtwncol; 
; 858 0980 6 END; 
; #44 333) g keypointer C.col] = .keypointer C.col] + 1; 
: 1 $985 5 outputting (curlinedesc, lLinedesc); ‘Output the Line | 
3 0984 ; Uy ee meer [0] GTR .controlreg Cerf$l entries] ! If no more entries 
; 0989 2 EXITLOOP; as ma | 
; ! oop on Lines per page 

; 865 $989 4 Pp per pag | 
3 0988 4 ite [0] = shoyeginter f ae ey wg ee - 1) 'Set index to next key 

; 0989 4 ee ® keysper ine - keypointer tin; :Zero rest of array 

; 990 4  inestnispoge = ,linesucpag; 'Set count of lines per page 

3 991 END; lof WHILE Loop 

; 236 | 
3 99 

3 994 

: 995 | 
: 4 | Fetaeing at least the refs, so only 1 key per Line 

; 99 | 
: 0998 ELSE BEGIN 
3 1 | 
3 1 ; i j Seteraine width of a reference 

3 100 


7 | 
CRF _CREF Cross reference facilit ese 1984 23:38:55 VAX-11 Bliss<-32 V4.0-74 P 1) | 
v04 crfsout -- output the cross reference 12-866-1984 13:12:36 DT SKSVMSMASTER- CORE SRCICREF 83251 age 43 
; BB 1 | | 
; 88 : 5 refsize = 0; 
$ 
3 5 100 IF (fldesc = .controlreg Ccerf$l_rifmtbl]) NEQ 0 
; 86 1008 THEN refsize = maxfieldwidth (.fldesc); | 
; 888 iy IF (fldesc = .controlreg Cerf$l_r2fmtbl]) NEQ 0 
; 89 1313 THEN refsize = .refsize + .fidesc Cfld$b_maxing); | 
: 
; 891 101 ! 
: > 1918 If printing defs, then update indent to start of references | 
> 894 101 
; 895 1017 IF “printing EQL crf$k_defs_refs | 
: 538 Isis HEN refindent = .refindent + .refsize; 
: 898 1020 IF .refsize NEQ 0 | 
; 899 1021 4 THEN BEGIN 
; 900 10 § 4 refsperline = (.linwid - .refindent) / .refsize; ‘Compute no. refs. per line 
> 901 10235 4 IF .refsperline LEQ 0 | 
: o0e ee : ee THEN RETURN crf$_Linelng; 
; 904 1086 ELSE retsperline = 1; | 
: 906 1028 3! | 
; 207 19 4 Now loop over all the keys 
: 909 1031 3 | 
; ai9 1036 i ee cee 0 TO .controlreg Ccrf$l_entries] - 1 
: 912 1034 4 | 
; (91 1035 4 curkey = .sortedkeys C.ij; 
: ay 1938 : formatkeyval (.curkey, curlinedesc); 'Format key1/key2/val1/val2 
: 916 1038 4 IF .printind EQL crf$k_defs_refs 'Printing defining reference? 
; 917 1039 5 THEN BEGIN 
; 918 1040 5 IF (fldesc = .controlreg Cerf$l_rifmtbl]) NEQ 0 
; 919 1041 5 THEN findformat (curlinedesc, scurkey Ckey$w_defflg], .fldesc); 
3; 920 1966 5 IF (fldesc = scontrolreg Cer f$l_r2fmtbl) = 0 
: 921 1043 5 THEN formatfield (.fldesc C¥ld$b_maxing), curlinedesc, 
3 356 1044 5 fldesc Cfld$b_faddscJ, 
3 Ge 1045 6 (IF (refdesc = .curkey Ckey$l_defnam]) NEQ 0 ‘use definer name if there | 
; 924 1046 g THEN .refdesc ; 
3 : 5 od ? i ELSE curkey Ckey$l_defnam])); ‘otherwise point to a zero | 
: 9 ; 1049 4! ; | 
: 3 : 1930 ? format the references | 
: 9 1936 4 refdesc = .curkey Ckey$l_reflist); 
; 931 1055 4 refcount = .refsperline; en 
:; 9 § 1054 4 curlinedesc Cdsc$w_length] = .Linwid - .refindent; 
3 882 193? ? curlinedesc Cdsc$a_pointer] = Linebuf + .refindent; 
: 935 1987 4 WHILE .refdesc NEQ 0 ‘Loop over all references 
3; 936 1058 DO BEGIN 
; 937 1059 IF (fldesc = .controlreg Ccrf$l_rifmtbl)) 7 0 
; 938 1060 THEN findformat (curlinedesc, .refdesc [ref$w_refflg], .fldesc); 


8 
CRF _CREF Cross reference facilit 18-se 1984 23:38:55 VAX=-11 Bliss-32 V4.0-74 Page 32 | 
04 crfsout -- output the cross reference 12-808=1 382 93:78: 6 DLEKSVMGMASTERSLORE SRCTCREF .832: 1 “ (135 ' 
: 939 196) IF (fldesc = econtrolreg certSs r2fmtbl]) NEQ 0 
; 940 1 66 THEN formatfield (. Lens {\db maxing , curlinedesc, 
; 94) 106 fidesc [fld$b_faodscJ, refdesc Cref$b_refing]); 
; 94 10454 refcount = ot Bee - 1; 
: 9% 1065 refdesc = .refdesc Cref$l_next); 
; 9446 1 $ IF .refcount 
; 945 106 AND .refdesc NEQ 0 
3 ac8 1068 6 THEN BEGIN 
3; 3 1363 6 outputline (curlinedesc, prnedece?? 
> 9468 1070 6 curlinedesc Cdsc$w_length) = .curlinedesc [dsc$w_length] - | 
: 949 1071 6 -refindent; 
; 950 1826 6 curlinedesc Cdsc$a_pointer] = .curlinedesc Cdsc$a_pointer] + 
; 951 1073 6 -refindent; 
3 926 1074 9 refcount = .refsperline; | 
; 95 1075 3 
; 9546 1278 4 END; 
; 955 1077 4! 
; 956 1278 4 ! Output the Line we've done 
; 957 1079 4! 
; 958 1080 4 outputline (curlinedesc, Linedesc); 
; 959 1081 4 Linecount = .linecount = 1; 
; 960 1086 4 IF .linecount EQL 0 | 
; 961 108 2 THEN BEGIN 
; 266 1084 Linecount = .linesucpag; 
; % 1085 5§ Linesthispage = .linesucpag; 
: 964 Ise 4 END; 
; 965 1087 4 
> 966 1088 3 END; 'Of WHILE Loop 
; 967 1089 END; 'Of printing at least refs 
; 963 1090 
; 969 1091 ! 
3 14 1996 If requested, deallocate the memory we used for the cross-reference 
s OT 1094 
; OV 1095 IF .saveind EQL crf$k_delete 
: 974 1096 THEN BEGIN | 
3 975 1097 LOCAL 
: 976 1098 defnam : REF VECTOR C,BYTE), 
3 977 1099 thisref : REF BBLOCK, 
; 978 1100 lastref : REF BBLOCK; 
; 979 1101 
; 980 1136 ' } 
3 Bas HS Get the addresses of the key def. blocks out of the sorted List 
; 383 1108 INCRU i FROM 0 TO .controlreg Ccrf$l_entries] - 1 
: 984 1198 & DO BEGIN 
3; «985 1107 4 curkey = .sortedkeys BY 
; 986 1108 4 IF (defnam = .curkey Ckey$l_defnam]) NEQ 0 '‘Deallocate definer name if present 
; + 44 1197 : THEN free_mem (.defnam [0J+1, defnam (0)); 
3; 989 1111 4 ! Deallocate reference List 
; 990 1448 4! 
3; «991 1113 4 thisref = scurkey Ckey$l_reflist); 
; 99 1114 4 WHILE .thisref NEQ 0 
; 99 1115 : DO BEGIN 
; 994 18 lastref = .thisref; 
: 995 1117 5 thisref = .thisref Cref$l_next); 


Page ay 
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CRF _CREF Cross reference facilit 1$-se 1984 23:38:55 VAX-11 Bliss-32 V4.0-74 
9042000 crfsout == output the cross reference 14-Sep-19 4 93:78: 6 ST EKSVMGMASTER CORE SRCICREF .832:1 
: 1118 5 free_mem (ref$c_fixedsize + .lastref Cref$b_refing], .lastref); 
: 338 i119 @ END: . _—" 
: 335 1151. & | Deatlocete key det 
3 ! Deallocate key def. entr 
: 1900 Hat Sialic: see sasha dang cued 
3 ree_mem (key$c_length, .curkey); 
3 190¢ 1124 END; ° 
; 100 1125 ! 
3 100e 1% § Deallocate the hash table 
; 1908 1128 free_mem (crf$c_hashsizet4, .controlreg Cerf$l_hasht]); 
; 100 1129 controlreg Cerf$l_hashtJ] = 0; 
; 1008 1130 controlreg [crf$l_entries] = 0; 
3; 1009 1131 controlreg ([crf$l_lastkey] = 0; 
3; 1010 11 ; ; 
3; 1011 11 
3 1olg 1134 ! 
: 101 1135 ! Deallocate the sorted List table 
3 1014 11 $ : 
3 1015 11 
; 1016 1138 free_mem (.controlreg Ccrf$l_entries] * 4, .sortedkeys); 
3; 1017 1139 
3; 1018 1140 RETURN true 
3; 1019 1141 
3; 1020 1142 1 END; ‘Of crf$out 
3; INFO#250 L1:1081 ; 
; Referenced LOCAL symbol LINECOUNT is probably not initialized 
OFFC 00000 ENTRY Na Save R2,R3,R4,R5,R6,R7,R8,R9,R10,— ; 
5E FE44 CE 9€ 00002 MOVAB -444(SP), SP : 
58 04 AC 00 00007 MOVL CONTROL, CONTROLREG 
o 4944 TSTL (CONTROLREG) 
13 0000D BEQL 1$ 
3 Beoye TSTL 12(CONTROLREG) 
12 00012 1$: BNEQ ¢3 
31 00014 BRW 0$ 
DS 00017 2$: TSTL 68 (CONTROLREG) 
12 QOO1A BNEQ 3$ 
dO $9) MOVL #6652042, RO 
11 00 BRB 4$ 
2c B88 ; 3$: MOVCS #0, (SP), #32, #142, LINEBUF 
80 02F LINWID, LINEDESC 
: 035 L INEBUE LINEDESC+4 
03¢ #8, LINEDESC, CURLINEDESC 
44 SORTEDKEYS 
48 #2, 12(CONTROLREG), RO 
3 4 GET_MEM 
2 STATUS, 5$ 
CREFERROR 
4 B28 
DD 0005 SORTEDKEYS 


cor f orege reference facilit 
§e2608 rfsout -- output the cross reference 
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50 
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00000084 + 8&F 
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14 AE 
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51 
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59 
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1C AE 
Oc 8 (AB 
50 
18 AE4O 
59 
53 


48 
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So 
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i 93: if: 32 VAX-11 Bliss-32 V4.0-74 


DISKSVMSMASTER: CCRF ..SRCICREF .832;1 
acne HASHSIZE 

RT_HASH_TABLE 
FINDEN’ 
(CONTROLREG), FLDESC 


ESC), REF INDENT 
NTROLREG), FLDESC 


EG), FLDESC 


E 
REG), FLDESC 


NDENT 
T, LINWID 
» #132 


INDENT, KEYVALSIZ 
ESPAGEL. LINESTHISPAGE 


VF DNA SH DDSI" OWWBWoww 


Wm mm £& wire ern 


pad a byt ab aT tay ye 


z, 

INE 
INE 
Ata RLINE 


KEYVAL SIZs COLUMNSLEFT 
KEYSPERLINE, COLUMNSLEFT, BLANKSBTWNCOL 


HEYA: 
55° Ro: he #0, RB, KEYPOINTER+4 


#1, KEYPOINTE 
Seer 1 3(CONTROLREG) 
4 


b 
NESTHISPAGE, KEYPOINTER-4CCOLJ, 
YPOINTERCCOL 


CURRENTL INE 


MBO -BlxX 


Pee Se Se Se Se Se Se Se Ge Ge Ge Ge Ge Ge Ge Se Be Se Se Se Se Se Ge Go Se Se Ge Se Se Se Se Se Be Se Fe Be Se Se Se Fe Fs Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Be 
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894 | 
896 | 


0897 | 


0899 | 
0900 | 


i ee 
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CRF _CREF Cross reference facilit 1S-se 1984 23:38:55 VAX-11 Bliss-32 V4.0-74 
5042500 tr tfout -- output the cress reference 12-8 08-1 9b 93:78:33 SE SUMMASTER CORE Sac SCREF .832:1 
52 ps 115 18$:  CLRL 
A 11 0011 BRB 
0c 1¢ "45 pi 119 19$: cCHPL KE YPOINTERCCOLJ, 12(CONTROLREG) 
1€ AES2 DO 00121 MOVL. KEYPOINTERCCOLJ, RO 
51 10 AE 04 ¢€3 00126 SUBL3 #4 SORTEDKEYS R1 
0c 6140 00 001 MOVL (RI)EROJ, THISPOINTER 
1F 1 1 BEQL 218 
FF68 CD 9F 001 PUSHAB CURLINEDESC 
10 AE 0D 001 PUSHL THISPOINTER 
FEGG cr FB 001 CALLS #2, FORMATKEYVAL 
9 p 1 ‘ CMPL OL RI 
A 14 BEQL 
FF68 CD AA 143 SUBW2 BLANKSBTWNCOL, CURLINEDESC 
FF6C 86 CD A CO 0014 ADDL2 BLANKSBTWNCOL, CURLINEDESC+4 
1C AES2 D6 00140 208 INCL KEYPOINTERLCOL) 
3 06 O11 1$ INCL COL 
59 D1 00153 22$ CMPL COL, R9 
Ci 18 0196 BLEQU $ 
FF60 CD 9F 0015 PUSHAB LINEDESC 
FF68 CD 9F 0015C¢ PUSHAB CURL INEDESC 
FOF4 CF 02 FB 00160 CALLS #2, OUTPUTLINE 
OC AB 1¢ Ac D1 00165 CMPL KEYPOINTER, 12(CONTROLREG) 
: 14 OO16A BGTR 24$ 
; D6 0016C INCL  CURRENTLINE 
6E 53 1 0166 238: CMPL CURRENTLINE , LINESTHISPAGE 
Ag 1B 00171 BLEQU 18S 
1C AEGS OF 0173 24$: | PUSHAB KEYPOINTERCRS) 
1¢ AE i pO 017 MOVL a(SP)+, KEYPOINTER 
58 00 6E me 00 C 0178 MOVCS #0, (SP), #0, RB, KEYPOINTER+4 
6 10 Ac p0 OO 1B MOVL LINESUCPAG, LINESTHISPAGE 
FF69 31 00186 BRW 14$ 
51 D4 00189 25$:  CLRL  REFSIZ 
56 58 AB bg 00188 MOVL $88 (CONTROLREG), FLDESC 
09 13 0018F BEQL 26$ 
50 56 06 0191 MOVL  FLDESC, RO 
FDgA 0194 BSBW MAXFIELDWIDTH 
51 0 dO 00197 MOVL RO, REFSIZE 
56 SC AB 00 0019A 26$:  MOVL 9¢{CONTROLREG) , FLDESC 
07 1 O19E BEQL @ $ 
50 03 A6 9A OOIA MOVZBL (FLDESC), RO 
51 50 CO 001A4 ADDL RO) REFSIZE 
OC AE 04 O1A7 27$: CLRL  12¢SP) 
02 14 AC D1 OO1AA CMPL  PRINTIND, #2 
06 12 OO1A BNEQ 28s 
0c AE 06 0018 INCL (SP) 
57 2 CO 001B ADDL2 REFSIZE, REF INDENT 
1 D 186 28%:  TSTL REESIZE 
13 1 1 BEQL 30S 
50 08 ac 2 C3 OO1BA SuBL REFINDENT, LINWID, RO 
5 5 1 C7 001BF DIVL3 REFSIZE, RO, REFSPERLINE 
OB 14 C3 BGTR 31$ 
50 00658092 8F 0 1¢5 298: MOVL #6652050, RO 
55 ot 09 bith 308: MOVL. #1, REF SPERL INE 
08 AE oc AB 1 €3 00100 31$: SUBL3 #1. 12(CONTROLREG), 8(SP) 
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VAX-11 Bliss-32 V4.0-74 


1986 §2:446:36 
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crfSout -- output the cross reference 
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Cross reference facility 18-sep-1 
crfSout -- output the cross reference 14-Sep-1 
58 55 D 
a3 99 bos, 
4h Cd oF A3 40$: 
FF6 F & 
FCA9 «CCF 4 
& 42 0058 
59 10 AC 06 B4 
6E 10 ac OD B8 
2 be BC 41$: 
08 AE 4 H cp 42$: 
FF50 34 0036 
18 ac 93 ° 4 43$: 
55 Oc 3 «AB 1 (g 3 cc 
2 04 D1 
11 00203 
53 10 BE42 DO 00205 44$: 
56 14 =A 0 O2DA 
0B 13 OO2DE 
50 6 9A 002E 
0 06 O02E 
51 6 4 O2E 
00006 02E8 
57 04 A3 00 OO2EB 45$: 
57 DS OO2EF 46$: 
15 13 002F1 
54 57 00 002F3 
57 67 DO 002F6 
50 06 A& GA 002F9 
50 9? CO 002FD 
51 4 8 0 6 
00006 0030 
gf 11 +4 06 
51 3 DO 00308 47$: 
50 18 4 0308 
00006 030€ 
: 0g 0311 
55 D1 00313 48$: 
BD 18 0 1 
51 6B 00 0031 
50 00000000" 8F b° 031 
00006 
OC AB be 
68 8 
50 Oc AB 7 A 49$: 
51 10 A f 
50 — 0 ; 50$ 
be 00838 
826 bytes, Routine Base: $CODE$ + 0381 
1143 1 END 
1144 0 ELUDOM 


9 
9 


Be 93:44:86 


VAX-11 Bliss-32 V4.0-7 
DISKSVMSMASTER:CCRF.SR 


«Salaam REF COUNT 

erate + 
RLINEDESC 

#2, OUTPUTLINE 
NE COUNT 

LINESUCPAG, LIN 

LINESUCPAG, LIN 

I, 8(SP) 

45$ 


$ 
SAVE IND 
#1, 12¢CONTROLREG), R5 


RTEDKEYSCIJ, CURKEY 
CURKEY), DEFNAM 


] 
RKEY), THISREF 
REF 
F, LASTREF 


RE 

SREF), THISREF 
STREFS, RO 

R 


R1 


U 
s 
Ss 
I 


A 
TREF, 
E_MEM 


RS 


« 
(CONTROLREG), R1 
#<CRFSC_HASHSIZE*4>, RO 


FR 
12(CONTROLREG) 
ON 


L 
12(CONTROLREG), RO 
SORTEDKEYS, R1 

FREE MEM 

#i, RO 


2e_ 
No 


oj 
CICREF .832;1 


sated ated 
Ono fw 


Se ee Ge Oe Ge Ge 


PSECT SUMMARY 
Name Bytes Attributes 
$COUlS 1771 WNOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOP Sgt } 
o 8 « 0 NOVEC,NOWRT “NORD ; ME,NOSHR, LCL, ABS, CON,NOPIC,ALIGN(O) 


Library Statistics 


cee eee ee Symbols se aenewzre es Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSLIBISTARLET.L32;1 9776 22 0 581 00:01.0 


Information: 1 
Warnings: 
Errors: 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:CREF /OBJ=OBJ$:CREF MSRC$: CREF /UPDATE=(ENHS: CREF ) 
Size: 1771 code + 0 data bytes 
eis ty Ti 
s me: 
Lines/CPU Min: 1728 
Lerenes/CPU-Rin: 170 
Memor 3 


: 275 pages 
cp Aye. comiers™” 


8 
yos005" tb yg By, SE 13-Se0-1984 G3iteite | bTecbnGhaSfencctae sacScrer.032:1 
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DI ENT CORPORATION 
VAX/VMS V4.0 CO 


ND PROPRIETARY 


M 
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